home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 January / 64er_Magazin_94-01_1994_Markt__Technik_de.d64 / texto+ -> dl-wri (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  162 lines
  1. 0 dimk(255):nu$=chr$(0):c1$=chr$(143):c2$=chr$(144)
  2. 1 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,32,33,34,21,36,37,38,39,40,41,42,43,44
  3. 2 data45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,192,65,66,67
  4. 3 data68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90
  5. 4 data219,156,221,222,146,100,193,194,195,196,197,198,199,200,201,202,203
  6. 5 data204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,,,,,,,,,,,
  7. 6 data,,,,,,,,,,,,,,,,,,,,,,,,,,32,148,,143,,132,129,225,153,142,154,223,248
  8. 7 data174,93,254,91,240,221,,3,35,219,176,241,179,,60,228,175,62,100,,193
  9. 8 data194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210
  10. 9 data211,212,213,214,215,216,217,218,,101,179,227,177,,,,,,,,,,,,,,,,,,,,,,
  11. 10 data,,,,,,,,,
  12. 11 fori=.to255:readk(i):next
  13. 20 print"[147]konverter v1  textomat plus -> dl-writer
  14. 22 [153]"bitte dateinamen eingeben:
  15. 23 print"                [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][185]
  16. 24 [133]"textomat plus                  (NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";n1$
  17. 25 [153]"returnbitte jetzt nur grossbuchstaben!
  18. 26 input"dl-writer     ";n2$
  19. 28 open15,8,15
  20. 30 open2,8,2,n1$+",p,r
  21. 32 [141]1000
  22. 40 [159]3,8,3,n2$[170]",p,w
  23. 42 gosub1000
  24. 44 bl=1:print#3,c2$"b";:mu$="0
  25. 46 [153]"
  26. 50 get#2,a$:a=asc(a$+chr$(0)):s=st:poke212,1:printa$;
  27. 52 ifa=163then100
  28. 54 print#3,chr$(k(a));
  29. 60 ifs=0then50
  30. 70 print:print:gosub3000:close3:close2:gosub1000:close15:print"alles ok.":end
  31. 100 get#2,a$
  32. 102 ifa$="f"then200
  33. 104 ifa$="1"thenprint#3,c1$"c1";:ku=1:goto60
  34. 106 ifa$="2"then310
  35. 108 ifa$="3"then320
  36. 110 ifa$="4"thenprint#3,c1$"p1";:pr=1:goto60
  37. 112 ifa$="5"thenprint#3,c1$"t";:goto60
  38. 114 ifa$="6"thenprint#3,c1$"h";:goto60
  39. 116 ifa$="7"thenprint#3,c1$"s1";:sc=1:goto60
  40. 118 ifa$="8"thenprint#3,chr$(22);:goto60
  41. 120 ifa$="9"then600
  42. 122 ifa$="l"then500
  43. 124 ifa$="r"then550
  44. 126 ifa$="d"then300
  45. 128 ifa$="c"then750
  46. 130 ifa$="[213]"then250
  47. 132 ifa$="b"then700
  48. 134 ifa$="e"then800
  49. 136 ifa$="a"then900
  50. 138 ifa$="u"then850
  51. 140 ifa$="o"then860
  52. 142 ifa$="0"then450
  53. 190 goto60
  54. 200 iffethenfe=0:print#3,c1$"f0";:goto60
  55. 210 print#3,c1$"f1";:fe=1:goto60
  56. 250 ifunthenun=0:print#3,c1$"u0";:goto60
  57. 252 print#3,c1$"u1";:un=1:goto60
  58. 300 get#2,a$:ifa$="i"then304
  59. 302 print#3,"tt.mm.jj ";:goto60
  60. 304 get#2,a$:get#2,a$
  61. 306 ifa$="0"thenprint#3,c1$"a036";:goto60
  62. 307 ifa$="2"thenprint#3,c1$"a030";:goto60
  63. 308 ifa$="5"thenprint#3,c1$"s1";:sc=1:goto60
  64. 309 goto60
  65. 310 print#3,c1$"o";
  66. 312 get#2,a$:print#3,a$;
  67. 314 get#2,a$:ifa$="0"then60
  68. 316 print#3,c1$"q"a$;:goto60
  69. 320 print#3,c1$"g";
  70. 322 get#2,a$:print#3,a$;
  71. 324 get#2,a$:ifa$<>"0"thenget#2,a$:a$="9":goto328
  72. 326 get#2,a$
  73. 328 print#3,a$;:goto60
  74. 330 get#2,a$:get#2,a$:goto320
  75. 350 x$="u":goto354
  76. 352 x$="f
  77. 354 [161]#2,z1$:[161]#2,z2$:[161]#2,z3$:z[178][181]((100[172][197](z1$)[170]10[172][197](z2$)[170][197](z3$))[173]2)
  78. 356 [139]z[179]1[167]60
  79. 358 [139]z[179]100[167]370
  80. 360 z[178]z[171]99
  81. 362 [152]3,c2$x$"99";:[137]356
  82. 370 zh[178][181](z[173]10):zl[178]z[171]zh[172]10
  83. 380 [152]3,c2$x$[199](48[170]zh)[199](48[170]zl);:[137]60
  84. 450 a[178]0:[139]fe[167][152]3,c1$"f0";:a[178]1
  85. 452 [139]ku[167]ku[178]0:[152]3,c1$"c0";:a[178]1
  86. 454 [139]pr[167]pr[178]0:[152]3,c1$"p0";:a[178]1
  87. 456 [139]un[167][152]3,c1$"u0";:a[178]1
  88. 458 [139]sc[167]sc[178]0:[152]3,c1$"s0";:a[178]1
  89. 460 [139]ob[167]ob[178]0:[152]3,c1$"i0";:a[178]1
  90. 480 mu$[178]"0":[139]a[178]0[167][152]3,c1$"x";
  91. 490 [137]60
  92. 500 [161]#2,a$:[139]a$[179][177]"r"[167]504
  93. 502 [152]3,c2$"l";:[137]60
  94. 504 [139]a$[179][177]"n"[167]60
  95. 506 [161]#2,a$:[161]#2,b$:e[178][197](a$)[172]10[170][197](b$):[139]e[178]0[167]60
  96. 508 [129]i[178]1[164]e:[152]3,[199](146);:[130]:[137]60
  97. 550 [161]#2,a$:[139]a$[179][177]"r"[167]60
  98. 552 [152]3,c2$"r";:[137]60
  99. 600 [161]#2,a$
  100. 606 [139]a$[178]"chr$"[167][152]3,c1$"d1";:[137]60
  101. 608 [139]a$[178]"left$"[167][152]3,c1$"d0";:[137]60
  102. 610 [139]a$[178]"(NULL)"[167][152]3,c1$"b";:[137]60
  103. 612 [139]a$[178]"e"[167]650
  104. 614 [139]a$[178]"%"[167][161]#2,a$:[152]3,c1$"t";:[137]60
  105. 616 [139]a$[178]"u"[167]330
  106. 620 [152]3,c2$"h"a$;:[137]60
  107. 650 [161]#2,a$
  108. 652 [139]a$[178]"left$"[167][152]3,c1$"a";:[137]60
  109. 654 [139]a$[178]"o"[167][152]3,c1$"v";:[137]60
  110. 656 [139]a$[178]"right$"[167][161]#2,mu$:[137]60
  111. 658 [139]a$[178]"(NULL)"[167]690
  112. 660 [139]a$[178]"val"[167]950
  113. 662 [139]a$[178]"j"[167]350
  114. 664 [139]a$[178]"mid$"[167]352
  115. 680 [152]3,c2$"he"a$;:[137]60
  116. 690 [161]#2,a$:[139]a$[178]"0"[167][152]3,c1$"m0";:[137]60
  117. 692 [152]3,c1$"m"mu$;:[137]60
  118. 700 [161]#2,a$:[139]a$[179][177]"l"[167]60
  119. 702 bl[178]1[171]bl:[139]bl[178]1[167][152]3,c2$"b";:[137]60
  120. 704 [139]ce[178]1[167][152]3,c2$"c";:[137]60
  121. 706 [152]3,c2$"x";:[137]60
  122. 750 ce[178]1[171]ce:[139]ce[178]1[167][152]3,c2$"c";:[137]60
  123. 754 [139]bl[178]1[167][152]3,c2$"b";:[137]60
  124. 756 [152]3,c2$"x";:[137]60
  125. 800 [161]#2,a$:[139]a$[179][177]"r"[167]60
  126. 802 [161]#2,a$:[161]#2,b$:e[178][197](a$)[172]10[170][197](b$):[139]e[178]0[167]60
  127. 804 [129]i[178]1[164]e:[152]3,[199](145);:[130]:[137]60
  128. 850 [152]3,c1$"i2";:ob[178]1:[137]60
  129. 860 [152]3,c1$"i1";:ob[178]1:[137]60
  130. 900 [161]#2,a$:[139]a$[179][177]"b"[167][161]#2,a$:[137]60
  131. 902 [161]#2,a$
  132. 904 [139]a$[178]"1"[167][152]3,c2$"z2";:[137]60
  133. 906 [139]a$[178]"2"[167][152]3,c2$"z3";:[137]60
  134. 908 [139]a$[178]"3"[167][152]3,c2$"a36";:[137]60
  135. 910 [137]60
  136. 950 [161]#2,z1$:[161]#2,z2$:[161]#2,z3$:z[178]100[172][197](z1$)[170]10[172][197](z2$)[170][197](z3$)
  137. 952 [139]z[179]63[175]z[177]0[175]z[179][177]22[167][152]3,[199](z);:[137]60
  138. 954 [139]z[177]63[175]z[179]96[167][152]3,[199](z[170]128);:[137]60
  139. 956 [139]z[178]262[167][152]3,[199](0);:[137]60
  140. 958 [139]z[177]95[175]z[179]127[167][152]3,[199](z[171]32);:[137]60
  141. 960 [139]z[178]127[167][152]3,[199](145);:[137]60
  142. 962 [139]z[177]127[175]z[179]143[175]z[179][177]134[167][152]3,[199](z);:[137]60
  143. 964 [139]z[177]146[175]z[179]192[175]z[179][177]158[175]z[179][177]165[175]z[179][177]167[175]z[179][177]166[167][152]3,[199](z);:[137]60
  144. 966 [139]z[178]290[167][152]3,[199](158);:[137]60
  145. 968 [139]z[177]191[175]z[179]224[167][152]3,[199](z[171]96);:[137]60
  146. 970 [139]z[177]223[175]z[179]255[167][152]3,[199](z);:[137]60
  147. 972 [139]z[178]319[167][152]3,[199](255);:[137]60
  148. 974 [139]z[178]267[167][152]3,[199](165);:[137]60
  149. 976 [139]z[178]256[167][152]3,[199](166);:[137]60
  150. 978 [139]z[178]257[167][152]3,[199](167);:[137]60
  151. 980 [152]3,c1$"z"z1$z2$z3$;:[137]60
  152. 1000 [132]15,f1,f1$,f2,f3:[139]f1[179]2[167][142]
  153. 1002 [153]"disk-fehler nr."f1:[153]f1$:[153]"tr."f2" se"f3:[128]
  154. 3000 [153]"tototototototototototototototototototototototototototototototototototototototo
  155. 3001 print"hinweis: sollte es zu stoerungen beim  "
  156. 3002 print"druck des konvertierten dokuments kom- "
  157. 3004 print"men (insbesondere falscher horizontaler"
  158. 3006 print"zeichenabstand, kann es helfen, das    "
  159. 3008 print"blocksatz-steuerzeichem am textanfang  "
  160. 3010 print"zu loeschen oder gegen den code fuer   "
  161. 3012 print"'wordwrap aus' zu ersetzen.            ":return
  162.